home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / MAKE40K.BAS < prev    next >
BASIC Source File  |  1984-07-10  |  512b  |  13 lines
  1. 10 PRINT "This program is producing a 40K text file named 40K-FILE.DOC"
  2. 12 PRINT "   on Disk B. This file should be used for benchmarking"
  3. 14 PRINT "           file-copy utility programs."
  4. 20 OPEN "b:40K-file.doc" FOR OUTPUT AS #1
  5. 30 B$="This file contains 640 lines, each of them having 64 chars...."
  6. 35 PRINT #1, B$
  7. 40 A$="This line contains 64 chars, including carriage return and LF."
  8. 60 FOR I=2 TO 640
  9. 80 PRINT #1, A$
  10. 100 NEXT I
  11. 120 CLOSE
  12. 140 SYSTEM
  13.  contains 64 chars, including carriage retur